home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / mas.lha / MAS / mas.dat < prev    next >
Text File  |  1995-07-29  |  1KB  |  40 lines
  1. /* Message Area Scanner 1.40 by S.Klemola */
  2.  
  3. Command "scan" (G:) {
  4.     if(arg(1) == "?") {
  5.         rexx("SendModem \(27)[36mFormat: \(27)[33mSCAN \(27)[0m[ALL|<Sig>] [NEW] [FORCE] [CONT] [INTER]\(13)\(10)");
  6.         break;
  7.     }
  8.     $sig = upper(arg(1));
  9.     if($sig == "ALL") $sig = 0;
  10.         else if(($sig == "") || ($sig < 1) || ($sig > 7)) /* change */
  11.         $sig = CurrentSIG();
  12.     $cont = "";
  13.     $new = "";
  14.     $force = "";
  15.     $plain = "";
  16.     $an = 1;
  17.     while(arg($an) != "") {
  18.         $ar = upper(arg($an));
  19.         if($ar == "CONT") $cont = "CONT";
  20.         if($ar == "NEW") $new = "NEW";
  21.         if($ar == "FORCE") $force = "FORCE";
  22.         if($ar == "PLAIN") $plain = 1;
  23.         if($ar == "INTER") $sig = "";
  24.         $an = $an + 1;
  25.     }
  26.     if($plain == 1) {
  27.         if(GetUserAccess() > 999) {
  28.             rexx("LogEntry Scanning message areas in plain mode");
  29.             dos("mas \($sig) <>TECHIO:\(node())");
  30.         } else {
  31.             rexx("LogEntry Attempted to use plain mode");
  32.             rexx("SendModem \(27)[31mYou are not allowed to use the plain mode.\(27)[0m\(13)\(10)");
  33.         }
  34.     } else {
  35.         if($cont != "") $sig = "0";
  36.         dos("cp:progs/mas \($sig) \($new) \($force) \($cont) USER \(node()) <>TECHIO:\(node())");
  37.     }
  38. };
  39.  
  40.